SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TTPROC_INTE_U01]
/*---------------------------------------------------------*/              
/*---Empresa              : OFISIS S.A.                  --*/              
/*---Cliente              : OFISIS        --*/              
/*---Sistema              : Tesoreria                    --*/              
/*---M¸dulo               : Empresa      --*/              
/*---Programa             : Procedimiento Principal      --*/              
/*--- Interfase                          --*/              
/*---Script               : ttproc_i.sql                 --*/              
/*---Nombre SP            : SP_TTPROC_INTEr_I01          --*/              
/*---Desarrollado por     : Carlos Marquez Escobar       --*/              
/*---Fecha Creaci¸n       : 06/10/2005                   --*/              
/*---Base Datos           : Microsoft Sql Server         --*/              
/*---Versi¸n              : 8.0    --*/              
/*---Invoca a SP          :        --*/              
/*---------------------------------------------------------*/              
/*-------------------------------------------------------*/        
/*---Modificado 3 por     : Carlos Marquez E.			--*/            
/*---Fecha Modificaci©n   : 17/03/2010                  --*/             
/*---Detalle Modificaci©n : Extorno Anticipos Clie Bancos--*/            
/*-------------------------------------------------------*/             
/*---------------------------------------------------------*/              
/*---Comentarios      Genera los Extornos de Operaciones --*/              
/*---                    --*/              
/*---                    --*/              
/*---------------------------------------------------------*/              
/*---------------------------------------------------------*/              
/*---Drop Proc SP_TTPROC_INTE_U01  --*/              
/*---GRANT EXECUTE ON SP_TTPROC_INTE_U01 TO PUBLIC        --*/               
/*--- SP_TTPROC_INTE_U01 '01' ,'00000000004', 'FAC', ' 022-0000023223', NULL,NULL,NULL,NULL , 0020000123 , 'U02' */      
             
/*---------------------------------------------------------*/              
              
@ISCO_EMPR   TD_VC_002,  /* Codigo de la Empresa */              
@ISCO_USUA_MODI  TD_VC_008,                                  
@ISPA_0001   TD_VC_020, /* Codigos de prov,bnco,caja,etc.. */              
@ISPA_0002   TD_VC_020, /* Numero cnta(Caso Banco u otros)  */              
@ISPA_0003   TD_VC_020, /* Numero Comprobantes */              
@INPA_ANNO   INTEGER,   /* Parametro AÏo  */              
@INPA_MESE   INTEGER,   /* Parametro Mes  */              
@IDPA_FECH   TD_DT_001, /* Parametro Fecha  */              
@ISNU_ASTO   TD_VC_020,              
@ISST_FLAG   TD_VC_010,              
@ISCO_UNID_CONC  TD_VC_003,              
@ISST_INTE   TD_VC_001              
 As              
DECLARE               
@VSNU_ASTO_0001 TD_VC_010,                                  
@VSCO_OPRC_CONT TD_VC_003,                
@VDFE_USUA_MODI TD_DT_001                
                
SELECT @VDFE_USUA_MODI = GETDATE()                
                
SELECT @VSNU_ASTO_0001 = '00000' + Right( @ISNU_ASTO, 5), @VSCO_OPRC_CONT = Left(@ISNU_ASTO, 3)              
              
/*-------- MODULO BANCOS --------------*/              
              
/******** COBRANZA DOCUMENTOS POR BANCOS *********/                        
IF @ISST_FLAG = 'U40'              
  EXEC SP_TTPROC_INTE_U40  @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO,      
@INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
              
/******** ENTREGAS A RENDIR POR BANCOS  *********/              
ELSE IF @ISST_FLAG = 'U03'              
   EXEC SP_TTPROC_INTE_U03  @ISCO_EMPR,@ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 --SELECT @VDFE_USUA_MODI = GETDATE()               
/******** REPOSICION A CAJA DESDE BANCOS  *********/              
ELSE IF @ISST_FLAG = 'U05'              
 --- EXEC SP_TTPROC_INTE_U05  @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/******** TRANSFERENCIAS ENTRE CUENTAS BANCARIAS *********/              
ELSE IF @ISST_FLAG = 'U06'                                 
 --- EXEC SP_TTPROC_INTE_U06  @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/******** CANCELACION DOCUMENTOS POR PAGAR X BANCOS *********/              
ELSE IF @ISST_FLAG = 'U04'              
  EXEC SP_TTPROC_INTE_U04  @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
               
/******** PAGOS MULTIPLES *********/              
ELSE IF @ISST_FLAG = 'U64'              
  EXEC SP_TTPROC_INTE_U64  @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
         
/******** APLICACION DE ANTICIPOS (BANCOS) *********/              
ELSE IF @ISST_FLAG = 'U61'              
 --- EXEC SP_TTPROC_INTE_U61  @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/******** SOLO MOVIMIENTO CABECERA(EGRESOS) - BANCOS *********/              
ELSE IF @ISST_FLAG = 'U26'              
 --- EXEC SP_TTPROC_INTE_U26  @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/******** INGRESOS MULTIPLES POR BANCOS *********/              
ELSE IF @ISST_FLAG = 'U69'              
  EXEC SP_TTPROC_INTE_U69  @ISCO_EMPR,@ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO,      
@INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
               
/******** PAGOS DE DETRACCIONES *********/              
ELSE IF @ISST_FLAG = 'U88'              
 --- EXEC SP_TTPROC_INTE_U88  @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/******** SOLO MOVIMIENTO CABECERA(INGRESOS) - BANCOS *********/              
ELSE IF @ISST_FLAG = 'U28'      
	 EXEC SP_TTPROC_INTE_U28  @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE
/******** DEVOLUCION DE DINERO POR RENDICION DE GASTOS(INGRESOS) - BANCOS *********/              
ELSE IF @ISST_FLAG = 'U30'              
 --- EXEC SP_TTPROC_INTE_U30  @ISCO_EMPR, @ISCO_USUA_MODI,@ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()                 
                
/*-------- FIN MODULO BANCOS --------------*/              
              
              
/*-------- MODULO CAJA --------------*/              
              
/*----- PAGO DOCUMENTOS PROVEEDORES POR CAJA ------*/              
ELSE IF @ISST_FLAG = 'U07'              
  EXEC SP_TTPROC_INTE_U07 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
               
/*----- INGRESOS POR CAJA (SOLO CABECERA)------*/              
ELSE IF @ISST_FLAG = 'U32'              
 --- EXEC SP_TTPROC_INTE_U32 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/*----- DEVOLUCI…N ENTREGAS A RENDIR POR CAJA------*/              
ELSE IF @ISST_FLAG = 'U34'              
 --- EXEC SP_TTPROC_INTE_U34 @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()           
/*----- TRANSFERENCIA ENTRE CAJA ------*/        
ELSE IF @ISST_FLAG = 'U36'              
  EXEC SP_TTPROC_INTE_U36 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,      
@ISNU_ASTO, @ISST_INTE              
                
/*----- INGRESOS POR CAJA (SOLO CABECERA)------*/              
ELSE IF @ISST_FLAG = 'U57'              
 --- EXEC SP_TTPROC_INTE_U57 @ISCO_EMPR, @ISCO_USUA_MODI,@ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/*----- TRANSFERENCIA DE CAJA A BANCOS ------*/              
ELSE IF @ISST_FLAG = 'U63'              
  EXEC SP_TTPROC_INTE_U63 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,     
@ISNU_ASTO, @ISST_INTE              
              
/*----- PAGOS MULTIPLES POR CAJA------*/              
ELSE IF @ISST_FLAG = 'U77'              
  EXEC SP_TTPROC_INTE_U77 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,      
@ISNU_ASTO, @ISST_INTE              
               
/*----- INGRESOS MULTIPLES POR CAJA------*/              
ELSE IF @ISST_FLAG = 'U79'              
  EXEC SP_TTPROC_INTE_U79 @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE,      
@IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
               
/*----- ENTREGA A RENDIR POR CAJA ------*/              
ELSE IF @ISST_FLAG = 'U41'              
 --- EXEC SP_TTPROC_INTE_U41 @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003,  @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/*----- COBRANZA DOCUMENTOS POR CAJA ------*/              
ELSE IF @ISST_FLAG = 'U44'              
  EXEC SP_TTPROC_INTE_U44 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
             
/*----- DEVOLUCION DE ANTICIPOS A  PROVEE POR CAJA ------*/              
ELSE IF @ISST_FLAG = 'U91'              
 --- EXEC SP_TTPROC_INTE_U91 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()                                   
/*-------- FIN MODULO CAJA --------------*/              
              
              
/*-------- MODULO CUENTAS POR COBRAR ---------*/              
              
/******** PROVISION CUENTAS POR COBRAR *********/              
ELSE IF @ISST_FLAG = 'U59'              
 --- EXEC SP_TTPROC_INTE_U59  @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/******** PROVISIONES CUENTAS POR COBRAR *********/              
ELSE IF @ISST_FLAG = 'U62'              
 --- EXEC SP_TTPROC_INTE_U62  @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/*----- CANJE DOCUMENTOS POR LETRAS CLIENTES ------*/              
ELSE IF @ISST_FLAG = 'U16'              
  EXEC SP_TTPROC_INTE_U16 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,      
@ISNU_ASTO, @ISST_INTE              
/*----- RENOVACION DOCUMENTOS POR LETRAS CLIENTES ------*/              
ELSE IF @ISST_FLAG = 'U50'              
 --- EXEC SP_TTPROC_INTE_U50 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/*----- APLICACION NOTA DE CREDITO CLIENTES ------*/              
ELSE IF @ISST_FLAG = 'U21'              
 EXEC SP_TTPROC_INTE_U21 @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,      
@ISNU_ASTO, @ISST_INTE              
              
/*----- GENERACION LETRAS ADELANTADAS ------*/                           
ELSE IF @ISST_FLAG = 'U81'              
 --- EXEC SP_TTPROC_INTE_U81 @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/*----- ANTICIPOS DE LETRAS ------*/              
ELSE IF @ISST_FLAG = 'U82'              
 --- EXEC SP_TTPROC_INTE_U82 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/*----- CAMBIO ESTADO DE DOCUMENTOS ------*/              
ELSE IF @ISST_FLAG = 'U71'              
 --- EXEC SP_TTPROC_INTE_U71 @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/*----- RENOVACION DE DOC'S CLIENTES ------*/              
ELSE IF @ISST_FLAG = 'U85'              
  EXEC SP_TTPROC_INTE_U85 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,      
@ISNU_ASTO, @ISST_INTE              
              
/*----- ANULACION LETRA DE UNA RENOVACION ------*/              
ELSE IF @ISST_FLAG = 'U86'              
 --- EXEC SP_TTPROC_INTE_U86 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
ELSE IF @ISST_FLAG = 'U87'              
 --- EXEC SP_TTPROC_INTE_U87 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
              
/*-------- FIN MODULO CUENTAS POR COBRAR ---------*/              
              
              
/*-------- MODULO CUENTAS POR PAGAR ---------*/              
              
/*------- PROVISION DE DOC'S PROVEEDOR ------------*/              
ELSE IF @ISST_FLAG = 'U02'              
 --- EXEC SP_TTPROC_INTE_U02  @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/*----- CANJE DOCUMENTOS PROVEEDORES------*/              
ELSE IF @ISST_FLAG = 'U08'              
  EXEC SP_TTPROC_INTE_U08 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,      
@ISNU_ASTO, @ISST_INTE    
/*----- CANJE DOCUMENTOS PROVEEDORES (LIQUIDACIONES)------*/              
ELSE IF @ISST_FLAG = 'U09'              
  --EXEC SP_TTPROC_INTE_U09 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE    
 SELECT @VDFE_USUA_MODI = GETDATE()               
/******** DEVUOLUICION ANTICIPOS PROVEEDORES POR BANCOS *********/                                  
ELSE IF @ISST_FLAG = 'U73'              
 --- EXEC SP_TTPROC_INTE_U73  @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/******** INGRESO CHEQUES DELSE IFERIDOS  *********/              
ELSE IF @ISST_FLAG = 'U68'              
 --- EXEC SP_TTPROC_INTE_U68  @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/*----- RENOVACION DOCUMENTOS PROVEEDORES------*/              
ELSE IF @ISST_FLAG = 'U48'              
 --- EXEC SP_TTPROC_INTE_U48 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/*----- APLICACION ANTICIPOS PROVEEDORES------*/              
ELSE IF @ISST_FLAG = 'U52'              
   EXEC SP_TTPROC_INTE_U52 @ISCO_EMPR, @ISCO_USUA_MODI,@ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE    
              
-- SELECT @VDFE_USUA_MODI = GETDATE()     
/*----- APLICACION NOTAS DE CREDITO PROVEEDORES------*/              
ELSE IF @ISST_FLAG = 'U18'              
  EXEC SP_TTPROC_INTE_U18 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,      
@ISNU_ASTO, @ISST_INTE              
 --SELECT @VDFE_USUA_MODI = GETDATE()          
/*----- RENDICION GASTOS POR BANCO------*/              
ELSE IF @ISST_FLAG = 'U46'              
 --- EXEC SP_TTPROC_INTE_U46 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/*----- RENDICION GASTOS POR CAJA------*/              
ELSE IF @ISST_FLAG = 'U10'              
 --- EXEC SP_TTPROC_INTE_U10 @ISCO_EMPR, @ISCO_USUA_MODI,@ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()               
/*----- COMPROMISOS DE PAGO ------*/              
ELSE IF @ISST_FLAG = 'U84'              
 --- EXEC SP_TTPROC_INTE_U84 @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE              
 SELECT @VDFE_USUA_MODI = GETDATE()                 
If @ISST_INTE = 'S'                            
  BEGIN              
  -- DIF DE CAMBIO              
  EXEC OFICONT..SP_TXMVTO_CNTB_I43 @ISCO_EMPR,@ISCO_USUA_MODI,@VDFE_USUA_MODI,1,@ISCO_UNID_CONC, @VSCO_OPRC_CONT, @INPA_ANNO,      
@INPA_MESE, @VSNU_ASTO_0001                  
                
  -- GESTION              
  EXEC OFICONT..SP_TXMVTO_CNTB_I25 @ISCO_EMPR,@ISCO_USUA_MODI,@VDFE_USUA_MODI, 1,@ISCO_UNID_CONC, @VSCO_OPRC_CONT,      
@INPA_ANNO, @INPA_MESE, @VSNU_ASTO_0001              
  END

GO
